home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
amac33.arc
/
QLST0.QM
< prev
next >
Wrap
Text File
|
1991-04-28
|
2KB
|
41 lines
* QLST0.QM
*
* Loads disk copy of all files in "Ring". See QLSTxx.QM for other
* information. Must be first macro in file.
*
@0 macrobegin
endfile begline * Get to last file first
REPEAT: *
Unmarkblock Markline * Mark it
Copy * Copy file name to scrap
Editfile Currentfilename " " * Load current file plus
Paste Return * last marked on list into ring
Cursorup * If another file, move up
JTrue REPEAT: * When no more files
nextfile macroread * read first file macro |
currentfilename * |TH mod
backspace backspace "mac" return* |
* Added lines below to load disk copy of all files in "Ring" from FileList
Editfile '!' Return * Insert -or- GoTo NUL File
Begline Cursorright * Put cursor in Col. 2 of NUL File
LOOP: * Main test loop
Nextfile * Move to next file in Ring
Cursorleft * Move cursor left (need for NUL test)
Jfalse LOOP: * If couldn't move to left, it's not
* the NUL File AND cursor position
* has not changed -- LOOP again
*ELSE
* Check to see if in the NUL File
Cursorleft * Move cursor left for NUL Test
Jfalse END: * If couldn't move left -- We
* ARE in the NUL File and Need
* to END the Macro
*ELSE
Cursorright * Move back to Col. 2 in NUL File
END: * Macro is DONE
Quit * Quit the NUL File
*
* 48 bytes Wed 10-31-1990 15:13:21 load all files in Ring
*.. Tom Hogshead Wed 10-31-1990